(auto-revert-handler): Bind `buffer-read-only' locally around the call

to `revert-buffer'.

diff --git a/lisp/autorevert.el b/lisp/autorevert.el
index 796ebaa27c82d32cbf283a66a7ee98ea3c7c4ac9..ecf768c573201e1e7456e9596aaa7b0b890706f5 100644 (file)
--- a/lisp/autorevert.el
+++ b/lisp/autorevert.el
@@ -421,7 +421,8 @@ This is an internal function used by Auto-Revert Mode."
           'no-mini t))
        (if auto-revert-tail-mode
            (auto-revert-tail-handler)
-         (revert-buffer 'ignore-auto 'dont-ask 'preserve-modes))
+         (let ((buffer-read-only buffer-read-only))
+           (revert-buffer 'ignore-auto 'dont-ask 'preserve-modes)))
        (when buffer-file-name
          (when eob (goto-char (point-max)))
          (dolist (window eoblist)